(nnfolder-possibly-change-group): Don't assume point-min == 1.

diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el
index 8ba41d950725303f11cdb29560fb1d1a09995032..6a4a7f794c58ddbb8ead2d06bda13612458c94d7 100644 (file)
--- a/lisp/gnus/nnfolder.el
+++ b/lisp/gnus/nnfolder.el
@@ -624,7 +624,8 @@ deleted.  Point is left where the deleted region was."
                (let ((nnmail-file-coding-system 
                       (or nnfolder-file-coding-system-for-write
                           nnfolder-file-coding-system-for-write)))
-                 (nnmail-write-region 1 1 file t 'nomesg)))
+                 (nnmail-write-region (point-min) (point-min)
+                                      file t 'nomesg)))
              (when (setq nnfolder-current-buffer (nnfolder-read-folder group))
                (set-buffer nnfolder-current-buffer)
                (push (list group nnfolder-current-buffer)